Private Function GetCOD4Key() As String
    Dim Key As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4", "codkey", Nothing)

    Return Key.Substring(0, 4) & "-" & _
           Key.Substring(4, 4) & "-" & _
           Key.Substring(8, 4) & "-" & _
           Key.Substring(12, 4) & "-" & _
           Key.Substring(16, 4)
End Function